2 PRINTCHR$(147):DIMA(300,3):WA(1)=17:WA(.)=17:P=54272:Z=.:POKE53280,.:POKE53281,.
4 FORS=54272TO54296:POKES,.:NEXT:POKEP+2,25:POKEP+3,8:POKEP+24,15:POKEP+6,255
6 READ H, L, DR
8 A(N,.)=H:A(N,1)=L:A(N,2)=DR:N=N+1:IFDR=. GOTO 14
10 GOTO6
12 X=X+1:IF X=1 THEN POKE54296,2:
14 N=.:PRINT"[147]              H A L L O !              "
16 IFA(N,.)=-1 GOTO 32
18 DA=TI:POKEP+1,A(N,.):POKEP,A(N,1):POKEP+4,WA(I)+1
20 IFTI<DA+A(N,2)THEN20
22 POKEP+4,WA(I):N=N+1:GOTO16
24 DATA 6,2,7,9,1,8,9,12,14,19,10,13,16,7,8,-1,-1,-1
26 DATA 9,12,5,11,3,7,10,13,13,14,19,14,14,10,14,-1,-1,-1
28 DATA 6,12,13,8,16,13,7,18,13,21,5,14,-1,-1,-1
30 DATA 8,11,16,11,14,12,28,34,1,-1,-1,-1,,,,,,
32 Z=Z+1:N=.:I=.
34 IFZ=2THENN=6:I=1:POKEP+5,9:POKEP+6,15
36 IFZ=3THENN=12:I=1:PRINT"           IHR SEID NOCH DA?"
38 IFZ=4THENN=.:I=.:POKEP+6,240
40 IFZ=5THENN=.:PRINT"[153]            DAS IST SCHOEN!"
42 IFZ=6THENN=6:I=1:POKEP+5,7:POKEP+6,128
44 IFZ=7THENN=17:I=1:POKE54272,33:PRINT"[154]   ABER LEIDER MUSS ICH SCHON GEHEN!!"
46 IFZ=8THENN=.:Z=.:POKEP+6,255:GOTO50
48 GOTO16
50 PRINT"   [159]   [156]         [158]   [129]   [149]   [152]   [153]   [154]   [155]  [150]     ";
52 TI$="000003":WAIT161,1
100 POKE53280,0:POKE53281,0:PRINT"[147]"
102 PRINT"[152]              [213][195][195][195][195][195][195][195][195][195][195][201]
104 [153]"              PEEKPOKE(null)(null)(null)(null)(null)RIGHT$RIGHT$RIGHT$RIGHT$RIGHT$PRINT#PEEK
106 PRINT"              [194][151][213][213][213][213][213][201][201][201][201][201][152][194]
108 [153]"              PEEK          PEEK
110 PRINT"              [194][149] [223][169][223]..[169][223][169] [152][194]
112 [153]"              PEEKVERIFY  (null)(null)(null)(null)(null)STEP  PRINT#PEEK
114 PRINT"              [194][149]    )(    [152][194]
116 [153]"              PEEKVERIFY          PRINT#PEEK
118 PRINT"              [202][195][184][184][184][184][184][184][184][184][146][195][203]
120 [153]"PRINT#                (null)(null)(null).LOGCOS:(null) WAIT"
122 [153]"PRINT#            POSPOKE*************RNDPRINT#POS
124 PRINT"[152]            [207]   [151][162][162][162][162][162][162][162][162]   [152][208]
126 [153]"PRINT#            USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
128 PRINT
136 TI$="000003":WAIT161,1
138 IF A$=CHR$(160)THEN140
140 POKE53280,. :POKE53281,0
142 S=54272:POKES+24,15:POKES,220:POKES+1,17:POKES+5,215:POKES+6,202
144 POKES+7,121:POKES+8,89 :POKES+12,33 :POKE13,215
146 PRINT"[147]":V=53248:POKEV+21,1
148 FORS1=12288TO12350:READQ1:POKES1,Q1:NEXT
150 FORS2=12416TO12478:READQ2:POKES2,Q2:NEXT
152 POKEV+1,155:
154 FORA=1TO8 :PRINTCHR$(147):
156 PRINTTAB(120)"[156]                                       "
158 PRINT"    SCHLUSS - AUS - ENDE UND VORBEI!   "
160 PRINT" [156]                                      "
162 FOR B=0TO10
164 NEXTB,A:GOSUB 166
166 K=192:POKEV+2,K
168 FORD=1TO506STEP8
170 RD=INT(D/256):LD=D-RD*256
172 POKEV,LD:POKEV+16,RD:
174 IFK=192THEN GOSUB206
176 IFK=193THEN GOSUB208
178 IFK=194 THEN GOSUB210:
180 POKE2040,K:FORT=0TO1 :NEXT:IFT >1 THENPRINTCHR$(144)
182 K=K+1:IFK>194THENK=192
184 FOR Y=0TO250STEP-5:POKEV+23,29:POKEV+29,29:POKEV+8,Y:POKEV+4,Y:POKE53281,0
186 POKEV+2,Y:POKEV+16,Y:POKEV+33,Y: NEXTY:POKEV+39,16*RND(0)
188 NEXT
190 PRINT"":GOTO212
192 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
194 DATA255,255,255,109,107,54,109,90,210,109,58,20,109,90,214,19,106,214,255
196 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
198 DATA255,255,255,255,255,255,255,255
200 DATA0,0,0,0 ,0,0,0 ,0,0 ,0,0 ,0,0 ,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
202 DATA 0,0,0,0,6,0,96,31,24,248,62,60,123,189,222,238,255,119,221,255,187
204 DATA123,189,222,55,126,244,63,221,252,19,24,200
206 POKES+4,17 :POKES+4,16 :RETURN:
208 POKES+11,65 :POKES+11,128:RETURN
210 POKES+14,33 :POKES+14,129:RETURN
212 PRINT"[129]       GRUESST ALLE 'TIGER'-FREUNDE":TI$="000003":WAIT161,1
214 POKE53280,14:POKE53281,6:POKE646,14:SYS58253:SYS65511